
[INIT]
  EXECUTE MACRO ProjectUpdate, Module_ProjectUpdate, ProjectUpdate
  DELETE "dgn\*.lve"

[PRE]
  EXECUTE MACRO ProjectUpdate, Module_ProjectUpdate, ProjectUpdate

[OPEN]
  EXECUTE MACRO ProjectUpdate, Module_ProjectUpdate, ProjectUpdate

[POST]
  EXECUTE MACRO ProjectUpdate, Module_ProjectUpdate, ProjectUpdate
  DELETE  "=== PrjData ===\data\rulefiles\K_Kat*.csv"
  DELETE  "=== PrjData ===\data\rulefiles\O_Kat*.csv"
  DELETE  "=== PrjData ===\data\rulefiles\O_WMS*.csv"
  DELETE  "=== PrjData ===\data\rulefiles\O_Dr*.csv"
  DELETE  "=== PrjData ===\data\*.drawlist.xml"
  DELETE  "=== PrjData ===\data\*.view.xml"
  DELETE  "=== PrjData ===\data\*SDC*.pntmgrimport.xml"
  DELETE  "=== PrjData ===\data\*SDC*.pntmgrexport.xml"
  DELETE  "=== PrjData ===\data\pln DM dle SDC.drawlist.xml"
  REWRITE "=== PrjData ===\data\pln DM dle S.drawlist.xml"
  REWRITE "=== PrjData ===\cfg\pntmgr.xml"
  REWRITE "=== PrjData ===\cfg\lastview.xml"
  REWRITE "=== PrjData ===\cfg\Export vkres dle S.drwexport.xml"
  REWRITE "=== PrjData ===\cfg\Bodov zvisl objekty.pntmgrobjsel.xml"
  DELETE  "=== PrjData ===\cfg\*.pntmgrimport.xml"
  DELETE  "=== PrjData ===\cfg\*.pntmgrexport.xml"
  REWRITE "=== PrjData ===\cfg\Vstup S M20 MP005 - s kdy.pntmgrimport.xml"
  REWRITE "=== PrjData ===\cfg\Vstup S M20 MP005 - bez kd.pntmgrimport.xml"
  REWRITE "=== PrjData ===\cfg\Vstup men S bez kd blok char. bez hlaviky.pntmgrimport.xml"
  REWRITE "=== PrjData ===\cfg\Vstup men S s kdy blok char. bez hlaviky.pntmgrimport.xml"
  REWRITE "=== PrjData ===\cfg\Vstup S M20 MP005 - s kdy.pntmgrexport.xml"
  REWRITE "=== PrjData ===\cfg\Vstup S M20 MP005 - bez kd.pntmgrexport.xml"
  REWRITE "=== PrjData ===\cfg\Protokol peslovanch bod.pntmgrexport.xml"
  REWRITE "=== PrjData ===\data\0 Ve JM.view.xml"
  REWRITE "=== PrjData ===\data\0a Ve ve vech kategorich.view.xml"
  REWRITE "=== PrjData ===\data\1 Svrek 1-11.view.xml"
  REWRITE "=== PrjData ===\data\2 Spodek 12-22.view.xml"
  REWRITE "=== PrjData ===\data\3 Stavby 23-24.view.xml"
  REWRITE "=== PrjData ===\data\4 Kabelov veden 25-36.view.xml"
  REWRITE "=== PrjData ===\data\5 Potrubn veden 37-47.view.xml"
  REWRITE "=== PrjData ===\data\6 Tern.view 48-51.xml"
  REWRITE "=== PrjData ===\data\7 Drn hranice 52-59.view.xml"
  REWRITE "=== PrjData ===\data\7 eleznin KN 55.view.xml"
  REWRITE "=== PrjData ===\data\8 Body 60-63.view.xml"
  REWRITE "=== PrjData ===\data\9 Polygony a obecn popisy 63.view.xml"
  REWRITE "=== PrjData ===\data\A Pomocn soubory1-200.view.xml"
  REWRITE "=== PrjData ===\data\B Katastrln mapa -  Ve.view.xml"
  REWRITE "=== PrjData ===\data\B Katastrln mapa - PV KN 52-59.view.xml"
  REWRITE "=== PrjData ===\data\B Katastrln mapa - VFK 1-62.view.xml"
  REWRITE "=== PrjData ===\data\C.Kty - na vydn 260-263.view.xml"
  REWRITE "=== PrjData ===\data\D STI 201-251.view.xml"
  REWRITE "=== PrjData ===\data\E BIM.view.xml"

[FINAL]
  EXECUTE MACRO ProjectUpdate, Module_ProjectUpdate, ProjectUpdate
  EXECUTE SQL UPDATE NavestidB SET pres=null where pres='nzz'
  EXECUTE SQL UPDATE JZM_B SET jzm_var1=null WHERE jzm_var1 IN(33,41,56)
  EXECUTE SQL UPDATE JZM_B SET jev='0' || jev WHERE length(jev)=2
  EXECUTE SQL UPDATE JZM_L SET jev='0' || jev WHERE length(jev)=2
  EXECUTE SQL UPDATE JZM_P SET jev='0' || jev WHERE length(jev)=2
  EXECUTE SQL UPDATE Kolej_B SET jev='0' || jev WHERE length(jev)=2
  EXECUTE SQL UPDATE Kolej_L SET jev='0' || jev WHERE length(jev)=2
  EXECUTE SQL UPDATE Kolej_P SET jev='0' || jev WHERE length(jev)=2
  EXECUTE SQL UPDATE Tech_B SET jev='0' || jev WHERE length(jev)=2
  EXECUTE SQL UPDATE Tech_L SET jev='0' || jev WHERE length(jev)=2
  EXECUTE SQL UPDATE Tech_P SET jev='0' || jev WHERE length(jev)=2
  EXECUTE SQL UPDATE NavestidB SET jev='0' || jev WHERE length(jev)=2
  EXECUTE SQL UPDATE NavestidL SET jev='0' || jev WHERE length(jev)=2
  EXECUTE SQL UPDATE Rychlostniky SET jev='0' || jev WHERE length(jev)=2
  EXECUTE SQL UPDATE NavestidB SET Vybava07=UPPER(Vybava07), Vybava08=UPPER(Vybava08), Vybava09=UPPER(Vybava09), Vybava10=UPPER(Vybava10), Vybava11=UPPER(Vybava11), Vybava12=UPPER(Vybava12) WHERE Vybava01 <> UPPER(Vybava01)
  EXECUTE SQL UPDATE NavestidB SET Vybava01=UPPER(Vybava01), Vybava02=UPPER(Vybava02), Vybava03=UPPER(Vybava03), Vybava04=UPPER(Vybava04), Vybava05=UPPER(Vybava05), Vybava06=UPPER(Vybava06) WHERE Vybava01 <> UPPER(Vybava01)
  EXECUTE SQL UPDATE Tech_L SET Jev='070' WHERE ObjCode='20011' AND popis='odv' AND (Jev IS null OR LENGTH(TRIM(Jev))=0)
  EXECUTE SQL UPDATE Kolej_L SET KCD='V' WHERE jev='097' AND KCD='H'
  EXECUTE COMMAND MENUMGR MENU REFRESH